home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.2mg / DEV.CD / GUIDED.TOURS / GS.DEMO.STRT / CONFIG (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1986-08-19  |  742 b   |  38 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 5  HOME 
  2. 6 D$ =  CHR$(4)
  3. 8  PRINT D$;"pr#3"
  4. 9  PRINT  SPC( 22);
  5. 10  PRINT "Apple IIgs Sales Demo Configuration"
  6. 12  PRINT : PRINT 
  7. 15  ONERR  GOTO 99
  8. 30  PRINT "Volume (0-9)? ";
  9. 31  GET A$:I =  ASC(A$) -48
  10. 32  IF (A$ > = "0")  AND (A$ < = "9")  THEN 44
  11. 33  IF (A$ > = "A")  AND (A$ < = "F")  THEN I = I -7: GOTO 44
  12. 34  IF (A$ > = "a")  AND (A$ < = "f")  THEN I = I -39: GOTO 44
  13. 35  GOTO 31
  14. 44  PRINT A$
  15. 46  POKE 770,I *16
  16. 47  POKE 771,0
  17. 50  PRINT : PRINT "Interactive (I) or rolling demo (R)? ";
  18. 52  GET A$
  19. 53  IF (A$ = "i")  OR (A$ = "I")  THEN I = 255: GOTO 60
  20. 54  IF (A$ = "r")  OR (A$ = "R")  THEN I = 0: GOTO 60
  21. 55  GOTO 52
  22. 60  PRINT A$
  23. 62  POKE 769,I
  24. 65  GOSUB 120
  25. 70  POKE 768,I
  26. 80  PRINT D$;"bsave bin/params,a$300,l$4"
  27. 85  ONERR  GOTO 100
  28. 88  PRINT D$;"run startup"
  29. 90  END 
  30. 99  PRINT : PRINT "...cannot save configuration": END 
  31. 100  PRINT : PRINT "...cannot load program": END 
  32. 120  PRINT : PRINT "Pause after loading (Y/N)? ";
  33. 122  GET A$
  34. 124  IF (A$ = "Y")  OR (A$ = "y")  THEN I = 255: GOTO 130
  35. 125  IF (A$ = "N")  OR (A$ = "n")  THEN I = 128: GOTO 130
  36. 126  GOTO 122
  37. 130  PRINT A$
  38. 132  RETURN